summary_data <- gapminder %>% group_by(continent, year) %>% summarise( avg_lifeExp = mean(lifeExp), avg_gdpPercap = mean(gdpPercap), .groups = "drop" )